﻿Imports Microsoft.VisualBasic
Imports System.Data.SqlClient
Imports System.Configuration


Public Class clsConexion


    'Representa una conexión abierta con una base de datos de SQL Server. Esta clase no se puede heredar.->System.Data.SqlClient
    Public dbconnection As New SqlConnection

    'Representa un conjunto de comandos de datos y una conexión de base de datos que se utilizan para rellenar un DataSet y actualizar una base de datos de SQL Server. Esta clase no se puede heredar. ->System.Data.SqlClient
    Public dbdataadapter As New SqlDataAdapter

    'Proporciona una forma de leer una secuencia de filas sólo hacia delante en una base de datos de SQL Server. Esta clase no se puede heredar.
    Public dbdatareader As SqlDataReader

    'Representa un procedimiento almacenado o una instrucción de Transact-SQL que se ejecuta en una base de datos de SQL Server. Esta clase no se puede heredar.
    Public dbcommand As New SqlCommand

    'Representa una tabla de datos en memoria.
    Public dbdatatable As New Data.DataTable

    'Representa una caché de memoria interna de datos.
    Public dbdataset As New Data.DataSet
    '
    Public cadenaConexion As String
    '
    Private dbError As String

    Public Property pdbError() As String
        Get
            Return dbError
        End Get
        Set(ByVal value As String)
            dbError = value
        End Set
    End Property

    Public Function fn_abrir() As Boolean

        cadenaConexion = "Data Source = .\SQLEXPRESS; Initial Catalog = Ficticia; Integrated Security = True"
        Try
            dbconnection = New SqlConnection(cadenaConexion)
            dbconnection.Open()
            dbdataset = New System.Data.DataSet
            Return (True)
        Catch ex As Exception
            dbError = "Error al conectar la base de datos." & vbCrLf & ex.Message
            Return (False)
        End Try
    End Function

    Public Sub su_cerrar()
        Try
            dbconnection.Dispose()
            dbdataset.Dispose()
        Catch ex As Exception
            dbError = "Error al desconectar la base de datos." & vbCrLf & ex.Message
        End Try
    End Sub

End Class